00100		TITLE TLOAD
00200		A←1 ↔B←2↔C←3 ↔D←4 ↔E←5↔X←6↔Y←7
00300		P←17 ↔ NBUFS←4 ↔ S←10 
00400	PDL:	BLOCK 22
00500	IBUF:	BLOCK 4
00600	FILNAM:	'DSKOP '
00700		'DMP   '
00800		0
00900		0
01000	
01100	STAR:	MOVE P,[PDPO:	IOWD 22,PDL]
01200		OPEN 11,[14↔'DSK   '↔IBUF]
01300		JRST 4,.
01400		INBUF 11,NBUFS
01500		LOOKUP 11,FILNAM
01600		JRST 4,.
01700	
01800		HRROI Y,-401	;-777 FOR LAST PROM (256 BYTES)
01900				;-5 FOR MADDR 1000
01950				;-771 For 176000
02000	LOADER:	PUSHJ P,INP+1
02100		HRRZI X,200
02200		ADD X,IBUF+2
02300		AOJL Y,LOADER
02400		
02500		OUTSTR [ASCIZ/	Data starts next line:
02600	/]
02700	
02800		HRLI C,-400	;-400 FOR 256 PROM
02900	LOAD:	PUSHJ P,INP
03000		HRRZ A,1(X)
03100		ADDI S,(A)
03200		ANDI A,17
03300		ORI A,60	;ASCII
03400		OUTCHR A
03500		HRRZ A,1(X)
03600		LSH A,-4
03700		ANDI A,17
03800		ORI A,60
03900		OUTCHR A
04000	
04100	ADX:	AOBJP C,DONE
04200		AOBJN X,LOAD+1
04300		JRST LOAD
04400	
04500	
04600	DONE:	XORI S,-1	;GET CHECK SUM
04700		AOJ S,
04800		ANDI S,377
04900		OUTSTR [ASCIZ/End data, check sum:/]
05000		HRRZI A,(S)
05050		ANDI A,17
05054		ORI A,60
05058		OUTCHR A
05062		LSH A,-4
05066		ANDI A,17
05070		ORI A,60
05074		OUTCHR A
05200		
05300		EXIT
05400	
05500	INP:	HRRM X,IBUF+1
05600		IN 11,
05700		JRST SETX
05800		STATO 11,20000
05900		JRST 4,.
06000	ERROR:	OUTSTR [ASCIZ/?????/]
06100		EXIT
06200	
06300	
06400	SETX:	HRRZ X,IBUF+2
06500		MOVNI X,(X)
06600		HRLZI X,(X)
06700		HRR X,IBUF+1
06800		POPJ P,
06900	END STAR